アクセス
道順です。
◎住所：東京都新宿区下落合3-4-21
JR目白駅を出て左へ
↓
目白三丁目信号左折
↓
「東京古典楽器センター」
（ぎたるら社）右折
↓
アートビュー・「芸術視線」の表札あり
スターウォーズ
10 SET WINDOW 0,700,700,0
11 SET AREA COLOR 1
PLOT AREA:0,0;701,0;701,100;0,100
SET AREA COLOR 1
PLOT AREA:0,600;701,600;701,701;0,701
SET TEXT FONT "ＭＳ 明朝",30
SET TEXT COLOR 1
PLOT TEXT ,AT 170,300 : "回避シューティング"
SET TEXT FONT "ＭＳ 明朝",17
SET TEXT COLOR 4
PLOT TEXT ,AT 517,580 : "START"
SET AREA COLOR 5
PLOT AREA:380,360;340,370;380,380
SET TEXT FONT "ＭＳ 明朝",11
SET TEXT COLOR 1
PLOT TEXT ,AT 425,360 : "I = UP"
PLOT TEXT ,AT 419,380 : "K = STOP"
PLOT TEXT ,AT 417,400 : "M = DOWN"
CHARACTER INPUT CLEAR :p$
IF p$="p" THEN GOTO 12
!hajime gamen-----------------------------
12 LET c1=234
LET c2=234
LET c3=234
LET c4=234
LET c5=234
LET c6=234
LET c7=234
LET c8=234
LET c9=234
LET c10=234
LET c11=234
LET c12=234
LET c13=234
LET c14=234
LET c15=234
LET c16=234
LET c17=234
LET c18=234
LET c21=2
LET c22=2
LET c23=2
LET c24=2
LET c25=2
LET c26=2
LET c27=2
LET c28=2
LET c29=2
LET c100=00000
!teki move---------------------------
20 FOR m=1 TO 700 STEP 10
!my move-----------------------------
35 CLEAR
40 CHARACTER INPUT nowait :a$
IF a$="i" THEN LET i=i-6
!yajirusi---------------------------
SET AREA COLOR 4
IF a$="m" THEN LET i=i+6
PLOT AREA:650,360+i;610,370+i;650,380+i
!m攻撃-----------------------------
rem IF a$="j" THEN GOTO 45
45 SET AREA COLOR 7
DRAW disk WITH SCALE (5)*SHIFT(640-m,370+i)
SET AREA COLOR 7
DRAW disk WITH SCALE (5)*SHIFT(620-m,370+i)
SET AREA COLOR 7
DRAW disk WITH SCALE (5)*SHIFT(600-m,370+i)
DRAW disk WITH SCALE (5)*SHIFT(740-m,370+i)
SET AREA COLOR 7
DRAW disk WITH SCALE (5)*SHIFT(720-m,370+i)
SET AREA COLOR 7
DRAW disk WITH SCALE (5)*SHIFT(700-m,370+i)
DRAW disk WITH SCALE (5)*SHIFT(840-m,370+i)
SET AREA COLOR 7
DRAW disk WITH SCALE (5)*SHIFT(820-m,370+i)
SET AREA COLOR 7
DRAW disk WITH SCALE (5)*SHIFT(800-m,370+i)
!tama atari
LET misx=610-m
LET misy=370+i
!teki-----------------------------
50 SET AREA COLOR c1
IF c1=0 THEN GOTO 90
51 IF misx>85+m-20 THEN GOTO 52 ELSE GOTO 60
52 IF misx<85+m+20 THEN GOTO 53 ELSE GOTO 60
53 IF misy>78 THEN GOTO 54 ELSE GOTO 60
54 IF misy<122 THEN GOTO 86
60 DRAW disk WITH SCALE (45)*SHIFT(85+m,100)
70 IF (85+m)>590 THEN GOTO 75 ELSE GOTO 90
75 IF (85+m)<630 THEN GOTO 80 ELSE GOTO 90
80 IF (360+i)>78 THEN GOTO 85 ELSE GOTO 90
85 IF (360+i)<122 THEN GOTO 10000
86 LET c1=0
87 IF c1=0 THEN GOTO 88 ELSE GOTO 90
88 LET c100=c100+50
90 SET AREA COLOR 56
100 DRAW disk WITH SCALE (23)*SHIFT(380+m*2,120)
105 IF (380+m*2)>599 THEN GOTO 110 ELSE GOTO 130
110 IF (380+m*2)<621 THEN GOTO 115 ELSE GOTO 130
115 IF (360+i)>110 THEN GOTO 120 ELSE GOTO 130
120 IF (360+i)<130 THEN GOTO 10000
130 SET AREA COLOR 56
140 DRAW disk WITH SCALE (23)*SHIFT(115+m*2,185)
145 IF (115+m*2)>599 THEN GOTO 150 ELSE GOTO 170
150 IF (115+m*2)<621 THEN GOTO 155 ELSE GOTO 170
155 IF (360+i)>175 THEN GOTO 160 ELSE GOTO 170
160 IF (360+i)<195 THEN GOTO 10000
170 SET AREA COLOR c2
IF c2=0 THEN GOTO 210
171 IF misx>295+m*1.3-20 THEN GOTO 172 ELSE GOTO 180
172 IF misx<295+m*1.3+20 THEN GOTO 173 ELSE GOTO 180
173 IF misy>133 THEN GOTO 174 ELSE GOTO 180
174 IF misy<177 THEN GOTO 206
180 DRAW disk WITH SCALE (45)*SHIFT(295+m*1.3,155)
190 IF (295+m*1.3)>590 THEN GOTO 195 ELSE GOTO 210
195 IF (295+m*1.3)<630 THEN GOTO 200 ELSE GOTO 210
200 IF (360+i)>133 THEN GOTO 205 ELSE GOTO 210
205 IF (360+i)<177 THEN GOTO 10000
206 LET c2=0
207 IF c2=0 THEN GOTO 208 ELSE GOTO 210
208 LET c100=c100+50
210 SET AREA COLOR c21
IF c21=0 THEN GOTO 250
211 IF misx>550+m-32 THEN GOTO 212 ELSE GOTO 220
212 IF misx<550+m+32 THEN GOTO 213 ELSE GOTO 220
213 IF misy>118 THEN GOTO 214 ELSE GOTO 220
214 IF misy<182 THEN GOTO 246
220 DRAW disk WITH SCALE (65)*SHIFT(550+m,150)
225 IF (550+m)>578 THEN GOTO 230 ELSE GOTO 250
230 IF (550+m)<642 THEN GOTO 235 ELSE GOTO 250
235 IF (360+i)>118 THEN GOTO 340 ELSE GOTO 250
240 IF (360+i)<182 THEN GOTO 10000
246 LET c21=0
247 IF c21=0 THEN GOTO 248 ELSE GOTO 250
248 LET c100=c100+30
250 SET AREA COLOR 56
260 DRAW disk WITH SCALE (23)*SHIFT(440+m*2,233)
265 IF (440+m*2)>599 THEN GOTO 270 ELSE GOTO 290
270 IF (440+m*2)<621 THEN GOTO 275 ELSE GOTO 290
275 IF (440+i)>223 THEN GOTO 280 ELSE GOTO 290
280 IF (440+i)<243 THEN GOTO 10000
290 SET AREA COLOR c22
IF c22=0 THEN GOTO 330
291 IF misx>100+m-32 THEN GOTO 292 ELSE GOTO 300
292 IF misx<100+m+32 THEN GOTO 293 ELSE GOTO 300
293 IF misy>268 THEN GOTO 294 ELSE GOTO 300
294 IF misy<332 THEN GOTO 326
300 DRAW disk WITH SCALE (65)*SHIFT(100+m,300)
305 IF (100+m)>578 THEN GOTO 310 ELSE GOTO 330
310 IF (100+m)<642 THEN GOTO 315 ELSE GOTO 330
315 IF (360+i)>268 THEN GOTO 320 ELSE GOTO 330
320 IF (360+i)<332 THEN GOTO 10000
326 LET c22=0
327 IF c22=0 THEN GOTO 328 ELSE GOTO 330
328 LET c100=c100+30
!ch
330 SET AREA COLOR c3
IF c3=0 THEN GOTO 370
331 IF misx>180+m*1.3-20 THEN GOTO 332 ELSE GOTO 340
332 IF misx<180+m*1.3+20 THEN GOTO 333 ELSE GOTO 340
333 IF misy>373 THEN GOTO 334 ELSE GOTO 340
334 IF misy<417 THEN GOTO 366
340 DRAW disk WITH SCALE (45)*SHIFT(180+m*1.3,395)
350 IF (180+m*1.3)>590 THEN GOTO 355 ELSE GOTO 370
355 IF (180+m*1.3)<630 THEN GOTO 360 ELSE GOTO 370
360 IF (360+i)>373 THEN GOTO 365 ELSE GOTO 370
365 IF (360+i)<417 THEN GOTO 10000
366 LET c3=0
367 IF c3=0 THEN GOTO 368 ELSE GOTO 370
368 LET c100=c100+50
!ch
370 SET AREA COLOR 56
380 DRAW disk WITH SCALE (23)*SHIFT(240+m*2,310)
385 IF (240+m*2)>599 THEN GOTO 390 ELSE GOTO 410
390 IF (240+m*2)<621 THEN GOTO 395 ELSE GOTO 410
395 IF (360+i)>299 THEN GOTO 400 ELSE GOTO 410
400 IF (360+i)<321 THEN GOTO 10000
410 SET AREA COLOR 56
420 DRAW disk WITH SCALE (23)*SHIFT(310+m,280)
425 IF (310+m)>599 THEN GOTO 430 ELSE GOTO 450
430 IF (310+m)<621 THEN GOTO 435 ELSE GOTO 450
435 IF (360+i)>270 THEN GOTO 440 ELSE GOTO 450
440 IF (360+i)<290 THEN GOTO 10000
450 SET AREA COLOR 56
460 DRAW disk WITH SCALE (23)*SHIFT(500+m,340)
465 IF (500+m)>599 THEN GOTO 470 ELSE GOTO 490
470 IF (500+m)<621 THEN GOTO 475 ELSE GOTO 490
475 IF (360+i)>330 THEN GOTO 480 ELSE GOTO 490
480 IF (360+i)<350 THEN GOTO 10000
490 SET AREA COLOR 56
500 DRAW disk WITH SCALE (23)*SHIFT(400+m*2,413)
505 IF (400+m*2)>599 THEN GOTO 510 ELSE GOTO 530
510 IF (400+m*2)<621 THEN GOTO 515 ELSE GOTO 530
515 IF (400+m*2)>403 THEN GOTO 520 ELSE GOTO 530
520 IF (400+m*2)<423 THEN GOTO 10000
!攻撃
!SET AREA COLOR 5
!DRAW disk WITH SCALE (8)*SHIFT(430,413)
!SET AREA COLOR 5
!DRAW disk WITH SCALE (8)*SHIFT(460,403)
!SET AREA COLOR 5
!DRAW disk WITH SCALE (8)*SHIFT(490,393)
530 SET AREA COLOR c4
IF c4=0 THEN GOTO 570
531 IF misx>505+m-20 THEN GOTO 532 ELSE GOTO 540
532 IF misx<505+m+20 THEN GOTO 533 ELSE GOTO 540
533 IF misy>463 THEN GOTO 534 ELSE GOTO 540
534 IF misy<507 THEN GOTO 566
540 DRAW disk WITH SCALE (45)*SHIFT(505+m,485)
550 IF (505+m)>599 THEN GOTO 555 ELSE GOTO 570
555 IF (505+m)<621 THEN GOTO 560 ELSE GOTO 570
560 IF (360+i)>463 THEN GOTO 565 ELSE GOTO 570
565 IF (360+i)<507 THEN GOTO 10000
566 LET c4=0
567 IF c4=0 THEN GOTO 568 ELSE GOTO 570
568 LET c100=c100+50
570 SET AREA COLOR c23
IF c23=0 THEN GOTO 610
571 IF misx>290+m-32 THEN GOTO 572 ELSE GOTO 580
572 IF misx<290+m+32 THEN GOTO 573 ELSE GOTO 580
573 IF misy>438 THEN GOTO 574 ELSE GOTO 580
574 IF misy<502 THEN GOTO 606
580 DRAW disk WITH SCALE (65)*SHIFT(290+m,470)
585 IF (290+m)>578 THEN GOTO 590 ELSE GOTO 610
590 IF (290+m)<642 THEN GOTO 595 ELSE GOTO 610
595 IF (360+i)>438 THEN GOTO 600 ELSE GOTO 610
600 IF (360+i)<502 THEN GOTO 10000
606 LET c23=0
607 IF c23=0 THEN GOTO 608 ELSE GOTO 610
608 LET c100=c100+30
610 SET AREA COLOR c5
IF c5=0 THEN GOTO 650
611 IF misx>100+m*1.3-20 THEN GOTO 612 ELSE GOTO 620
612 IF misx<100+m*1.3+20 THEN GOTO 613 ELSE GOTO 620
613 IF misy>548 THEN GOTO 614 ELSE GOTO 620
614 IF misy<592 THEN GOTO 646
620 DRAW disk WITH SCALE (45)*SHIFT(100+m*1.3,570)
630 IF (100+m*1.3)>590 THEN GOTO 635 ELSE GOTO 650
635 IF (100+m*1.3)<630 THEN GOTO 640 ELSE GOTO 650
640 IF (360+i)>548 THEN GOTO 645 ELSE GOTO 650
645 IF (360+i)<592 THEN GOTO 10000
646 LET c5=0
647 IF c5=0 THEN GOTO 648 ELSE GOTO 650
648 LET c100=c100+50
650 SET AREA COLOR 56
660 DRAW disk WITH SCALE (23)*SHIFT(55+m*2,480)
665 IF (55+m*2)>599 THEN GOTO 670 ELSE GOTO 690
670 IF (55+m*2)<621 THEN GOTO 675 ELSE GOTO 690
675 IF (360+i)>470 THEN GOTO 680 ELSE GOTO 690
680 IF (360+i)<490 THEN GOTO 10000
690 SET AREA COLOR 56
700 DRAW disk WITH SCALE (23)*SHIFT(250+m*2,580)
705 IF (250+m*2)>599 THEN GOTO 710 ELSE GOTO 730
710 IF (250+m*2)<621 THEN GOTO 715 ELSE GOTO 730
715 IF (360+i)>570 THEN GOTO 720 ELSE GOTO 730
720 IF (360+i)<590 THEN GOTO 10000
730 SET AREA COLOR c6
IF c6=0 THEN GOTO 770
731 IF misx>385+m*1.3-20 THEN GOTO 732 ELSE GOTO 740
732 IF misx<385+m*1.3+20 THEN GOTO 733 ELSE GOTO 740
733 IF misy>558 THEN GOTO 734 ELSE GOTO 740
734 IF misy<602 THEN GOTO 766
740 DRAW disk WITH SCALE (45)*SHIFT(385+m*1.3,580)
750 IF (385+m*1.3)>590 THEN GOTO 755 ELSE GOTO 770
755 IF (385+m*1.3)<630 THEN GOTO 760 ELSE GOTO 770
760 IF (360+i)>558 THEN GOTO 765 ELSE GOTO 770
765 IF (360+i)<602 THEN GOTO 10000
766 LET c6=0
767 IF c6=0 THEN GOTO 768 ELSE GOTO 770
768 LET c100=c100+50
770 SET AREA COLOR 56
780 DRAW disk WITH SCALE (23)*SHIFT(570+m*2,530)
785 IF (250+m*2)>599 THEN GOTO 790 ELSE GOTO 850
790 IF (250+m*2)<621 THEN GOTO 795 ELSE GOTO 850
795 IF (360+i)>520 THEN GOTO 800 ELSE GOTO 850
800 IF (360+i)<540 THEN GOTO 10000
!攻撃
!SET AREA COLOR 5
!DRAW disk WITH SCALE (8)*SHIFT(580,500)
!SET AREA COLOR 5
!DRAW disk WITH SCALE (8)*SHIFT(595,470)
!SET AREA COLOR 5
!DRAW disk WITH SCALE (8)*SHIFT(605,440)
!teki2-----------------------------
850 SET AREA COLOR c7
IF c7=0 THEN GOTO 890
851 IF misx>-910+85+m*1.3-20 THEN GOTO 852 ELSE GOTO 860
852 IF misx<-910+85+m*1.3+20 THEN GOTO 853 ELSE GOTO 860
853 IF misy>78 THEN GOTO 854 ELSE GOTO 860
854 IF misy<122 THEN GOTO 886
860 DRAW disk WITH SCALE (45)*SHIFT(-910+85+m*1.3,100)
870 IF (-910+85+m*1.3)>590 THEN GOTO 875 ELSE GOTO 890
875 IF (-910+85+m*1.3)<630 THEN GOTO 880 ELSE GOTO 890
880 IF (360+i)>78 THEN GOTO 885 ELSE GOTO 890
885 IF (360+i)<122 THEN GOTO 10000
886 LET c7=0
887 IF c7=0 THEN GOTO 888 ELSE GOTO 890
888 LET c100=c100+50
890 SET AREA COLOR 56
900 DRAW disk WITH SCALE (23)*SHIFT(-1400+380+m*2,120)
905 IF (-1400+380+m*2)>599 THEN GOTO 910 ELSE GOTO 930
910 IF (-1400+380+m*2)<621 THEN GOTO 915 ELSE GOTO 930
915 IF (360+i)>110 THEN GOTO 920 ELSE GOTO 930
920 IF (360+i)<130 THEN GOTO 10000
930 SET AREA COLOR 56
940 DRAW disk WITH SCALE (23)*SHIFT(-1400+115+m*2,185)
945 IF (-1400+115+m*2)>599 THEN GOTO 950 ELSE GOTO 970
950 IF (-1400+115+m*2)<621 THEN GOTO 955 ELSE GOTO 970
955 IF (360+i)>175 THEN GOTO 960 ELSE GOTO 970
960 IF (360+i)<195 THEN GOTO 10000
970 SET AREA COLOR c8
IF c8=0 THEN GOTO 1010
971 IF misx>-700+295+m-20 THEN GOTO 972 ELSE GOTO 980
972 IF misx<-700+295+m+20 THEN GOTO 973 ELSE GOTO 980
973 IF misy>133 THEN GOTO 974 ELSE GOTO 980
974 IF misy<172 THEN GOTO 1006
980 DRAW disk WITH SCALE (45)*SHIFT(-700+295+m,155)
990 IF (-700+295+m)>590 THEN GOTO 995 ELSE GOTO 1010
995 IF (-700+295+m)<630 THEN GOTO 1000 ELSE GOTO 1010
1000 IF (360+i)>133 THEN GOTO 1005 ELSE GOTO 1010
1005 IF (360+i)<172 THEN GOTO 10000
1006 LET c8=0
1007 IF c8=0 THEN GOTO 1008 ELSE GOTO 1010
1008 LET c100=c100+50
1010 SET AREA COLOR c24
IF c24=0 THEN GOTO 1050
1011 IF misx>-700+550+m-32 THEN GOTO 1012 ELSE GOTO 1020
1012 IF misx<-700+550+m+32 THEN GOTO 1013 ELSE GOTO 1020
1013 IF misy>118 THEN GOTO 1014 ELSE GOTO 1020
1014 IF misy<182 THEN GOTO 1046
1020 DRAW disk WITH SCALE (65)*SHIFT(-700+550+m,150)
1025 IF (-700+550+m)>578 THEN GOTO 1030 ELSE GOTO 1050
1030 IF (-700+550+m)<642 THEN GOTO 1035 ELSE GOTO 1050
1035 IF (360+i)>118 THEN GOTO 1040 ELSE GOTO 1050
1040 IF (360+i)<182 THEN GOTO 10000
1046 LET c24=0
1047 IF c24=0 THEN GOTO 1048 ELSE GOTO 1050
1048 LET c100=c100+50
1050 SET AREA COLOR 56
1060 DRAW disk WITH SCALE (23)*SHIFT(-1400+440+m*2,233)
1065 IF (-1400+440+m*2)>599 THEN GOTO 1070 ELSE GOTO 1090
1070 IF (-1400+440+m*2)<621 THEN GOTO 1075 ELSE GOTO 1090
1075 IF (360+i)>223 THEN GOTO 1080 ELSE GOTO 1090
1080 IF (360+i)<243 THEN GOTO 10000
1090 SET AREA COLOR c25
IF c25=0 THEN GOTO 1130
1091 IF misx>-700+100+m-32 THEN GOTO 1092 ELSE GOTO 1100
1092 IF misx<-700+100+m+32 THEN GOTO 1093 ELSE GOTO 1100
1093 IF misy>268 THEN GOTO 1094 ELSE GOTO 1100
1094 IF misy<332 THEN GOTO 1126
1100 DRAW disk WITH SCALE (65)*SHIFT(-700+100+m,300)
1105 IF (-700+100+m)>578 THEN GOTO 1010 ELSE GOTO 1130
1110 IF (-700+100+m)<642 THEN GOTO 1115 ELSE GOTO 1130
1115 IF (360+i)>268 THEN GOTO 1120 ELSE GOTO 1130
1120 IF (360+i)<332 THEN GOTO 10000
1126 LET c25=0
1127 IF c25=0 THEN GOTO 1128 ELSE GOTO 1130
1128 LET c100=c100+30
1130 SET AREA COLOR c9
IF c9=0 THEN GOTO 1170
1131 IF misx>-910+180+m*1.3-20 THEN GOTO 1132 ELSE GOTO 1140
1132 IF misx<-910+180+m*1.3+20 THEN GOTO 1133 ELSE GOTO 1140
1133 IF misy>373 THEN GOTO 1134 ELSE GOTO 1140
1134 IF misy<417 THEN GOTO 1166
1140 DRAW disk WITH SCALE (45)*SHIFT(-910+180+m*1.3,395)
1150 IF (-910+180+m*1.3)>590 THEN GOTO 1155 ELSE GOTO 1170
1155 IF (-910+180+m*1.3)<630 THEN GOTO 1160 ELSE GOTO 1170
1160 IF (360+i)>373 THEN GOTO 1165 ELSE GOTO 1170
1165 IF (360+i)<417 THEN GOTO 10000
1166 LET c9=0
1167 IF c9=0 THEN GOTO 1168 ELSE GOTO 1170
1168 LET c100=c100+50
1170 SET AREA COLOR 56
1180 DRAW disk WITH SCALE (23)*SHIFT(-1400+240+m*2,310)
1185 IF (-1400+240+m*2)>599 THEN GOTO 1190 ELSE GOTO 1210
1190 IF (-1400+240+m*2)<621 THEN GOTO 1195 ELSE GOTO 1210
1195 IF (360+i)>300 THEN GOTO 1200 ELSE GOTO 1210
1200 IF (360+i)<320 THEN GOTO 10000
1210 SET AREA COLOR 56
1230 DRAW disk WITH SCALE (23)*SHIFT(-1400+310+m*2,280)
1235 IF (-1400+310+m*2)>599 THEN GOTO 1240 ELSE GOTO 1260
1240 IF (-1400+310+m*2)<621 THEN GOTO 1245 ELSE GOTO 1260
1245 IF (360+i)>270 THEN GOTO 1250 ELSE GOTO 1260
1250 IF (360+i)<290 THEN GOTO 10000
1260 SET AREA COLOR 56
1270 DRAW disk WITH SCALE (23)*SHIFT(-1400+500+m*2,340)
1275 IF (-1400+500+m*2)>599 THEN GOTO 1280 ELSE GOTO 1300
1280 IF (-1400+500+m*2)<621 THEN GOTO 1285 ELSE GOTO 1300
1285 IF (360+i)>330 THEN GOTO 1290 ELSE GOTO 1300
1290 IF (360+i)<350 THEN GOTO 10000
1300 SET AREA COLOR 56
1310 DRAW disk WITH SCALE (23)*SHIFT(-1400+400+m*2,413)
1315 IF (-1400+400+m*2)>599 THEN GOTO 1320 ELSE GOTO 1340
1320 IF (-1400+400+m*2)<621 THEN GOTO 1325 ELSE GOTO 1340
22 Dec 2021
ハープ模様
! GET POINT: x,y
! GET POINT: z,z3
10 PRINT"input point:1-8"
INPUT z
PRINT"input linecolor:1-9"
INPUT z2
PRINT"input linecolor:1-9"
INPUT z3
DECLARE EXTERNAL PICTURE circle0
LET a=z
LET X=0
SET WINDOW -2.4,2.4,-2.4,2.4
FOR tt=0 TO 2*PI STEP PI/160
SET DRAW MODE hidden
100 CLEAR
DRAW axes
SET LINE color z2
DRAW circle WITH SCALE(1)*SHIFT(1.2,1.2)
DRAW circle0 WITH ROTATE(-(a-1)*t)*SCALE(1/a)*SHIFT((1-1/a)*COS(t),(1-1/a)*SIN(t))
DRAW axes
SET LINE color z2
DRAW circle WITH SCALE(1)*shift(0,0)
DRAW circle0 WITH ROTATE(-(a-1)*t)*SCALE(1/a)*SHIFT((1-1/a)*COS(t)+1.2,(1-1/a)*SIN(t)+1.2)
DRAW axes
SET LINE color z2
DRAW circle WITH SCALE(1)*shift(-1.2,-1.2)
DRAW circle0 WITH ROTATE(-(a-1)*t)*SCALE(1/a)*SHIFT((1-1/a)*COS(t)-1.2,(1-1/a)*SIN(t)-1.2)
DRAW axes
SET LINE COLOR z2
DRAW circle WITH SCALE(1)*shift(-1.2,1.2)
DRAW circle0 WITH ROTATE(-(a-1)*t)*SCALE(1/a)*SHIFT((1-1/a)*COS(t)-1.2,(1-1/a)*SIN(t)+1.2)
DRAW axes
SET LINE color z2
DRAW circle WITH SCALE(1)*shift(1.2,-1.2)
DRAW circle0 WITH ROTATE(-(a-1)*t)*SCALE(1/a)*SHIFT((1-1/a)*COS(t)+1.2,(1-1/a)*SIN(t)-1.2)
SET AREA COLOR z3
PLOT AREA:-2.4,2.4;2.4,2.4;2.4,-2.4;-2.4,-2.4
FOR t=0 TO tt STEP PI/160
LET x=(1-1/a)*COS(t)+(1/a)*COS((a-1)*t)+1.2
LET y=(1-1/a)*SIN(t)-(1/a)*SIN((a-1)*t)+1.2
PLOT LINES:x,y;
LET h2=(1-1/a)*COS(t)+(1/a)*COS((a-1)*t)-1.2
LET j2=(1-1/a)*SIN(t)-(1/a)*SIN((a-1)*t)-1.2
PLOT LINES:h2,j2;
LET x3=(1-1/a)*COS(t)+(1/a)*COS((a-1)*t)-1.2
LET y3=(1-1/a)*SIN(t)-(1/a)*SIN((a-1)*t)+1.2
PLOT LINES:x3,y3;
LET x1=(1-1/a)*COS(t)+(1/a)*COS((a-1)*t)+1.2
LET y1=(1-1/a)*SIN(t)-(1/a)*SIN((a-1)*t)-1.2
PLOT LINES:x1,y1;
NEXT t
SET DRAW MODE explicit
WAIT DELAY 0.01
NEXT tt
GSAVE " GRAPHIC.BMP"
END
EXTERNAL PICTURE circle0
SET AREA COLOR 8
DRAW disk
SET AREA COLOR 0
DRAW disk WITH SCALE(0.05)*SHIFT(1,0) ! ちょっと大き目の点をかく
END PICTURE
16 Dec 2021
押して下さい
5 SET WINDOW 0,300,300,0
10 SET COLOR 0
15 DRAW disk WITH SCALE(10)*SHIFT(150,150)
20 SET COLOR 4
25 DRAW disk WITH SCALE(5)*SHIFT(150,150)
30 SET TEXT font"hiragino kakugo Std",15
SET TEXT COLOR 1
PLOT TEXT,AT 137,130:"PUSH!!"
40 GET POINT:x,y
50 IF 145
55 IF x<155 THEN GOTO 60 ELSE GOTO 40
60 IF 145
65 IF y<155 THEN GOTO 70 ELSE GOTO 40
70 SET COLOR n
80 DRAW disk WITH SCALE(m)*SHIFT(i,j)
90 RANDOMIZE
LET n=1+INT(50*RND)
100 RANDOMIZE
LET m=1+INT(50*RND)
LET i=1+INT(300*RND)
LET j=1+INT(300*RND)
GOTO 10
END
16 Dec 2021
テトリ◎
SET WINDOW 0 , 300 , 300 , 0
CLEAR
OPTION BASE 1
20 DIM a(6),b(6)
FOR n=1 TO 6
LET b(n)=400
NEXT n
LET j=1
LET h=280
FOR m=1 TO 3
LET a(m)=0
LET b(m)=0
60 CLEAR
SET AREA COLOR 27
DRAW GRID(10,10)
PLOT AREA: 0,300;0,240;20,240;20,280;40,280;40,300
SET AREA COLOR 31
PLOT AREA: 60,300;60,280;90,280;120,280;140,280;140,300
SET AREA COLOR 104
PLOT AREA: 180,300;180,280;200,280;200,260;220,260;220,280;260,280;260,300
SET AREA COLOR 247
PLOT AREA: 260,300;260,260;280,260;280,240;300,240;300,300
SET AREA COLOR 72
PLOT AREA: 140,300;180,300;180,280;160,280;160,260;140,260
SET AREA COLOR 243
PLOT AREA: 0,300;2,298;2,282;0,280
PLOT AREA: 0,280;2,278;2,262;0,260
PLOT AREA: 0,260;2,258;2,242;0,240
PLOT AREA: 20,300;22,298;22,282;20,280
SET AREA COLOR 154
PLOT AREA: 0,300;20,300;18,298;2,298
PLOT AREA: 0,280;20,280;18,278;2,278
PLOT AREA: 0,260;20,260;18,258;2,258
PLOT AREA: 20,300;40,300;38,298;22,298
SET AREA COLOR 99
PLOT AREA: 20,300;20,280;18,282;18,298
PLOT AREA: 20,280;20,260;18,262;18,278
PLOT AREA: 20,260;20,240;18,242;18,258
PLOT AREA: 40,300;40,280;38,282;38,298
SET AREA COLOR 38
PLOT AREA: 0,280;2,282;18,282;20,280
PLOT AREA: 0,260;2,262;18,262;20,260
PLOT AREA: 0,240;2,242;18,242;20,240
PLOT AREA: 20,280;22,282;38,282;40,280
SET AREA COLOR 70
PLOT AREA: 60,300;62,298;62,282;60,280
PLOT AREA: 80,300;82,298;82,282;80,280
PLOT AREA: 100,300;102,298;102,282;100,280
PLOT AREA: 120,300;122,298;122,282;120,280
SET AREA COLOR 189
PLOT AREA: 60,300;80,300;78,298;62,298
PLOT AREA: 80,300;100,300;98,298;82,298
PLOT AREA: 100,300;120,300;118,298;102,298
PLOT AREA: 120,300;140,300;138,298;122,298
SET AREA COLOR 196
PLOT AREA: 80,300;80,280;78,282;78,298
PLOT AREA: 100,300;100,280;98,282;98,298
PLOT AREA: 120,300;120,280;118,282;118,298
PLOT AREA: 140,300;140,280;138,282;138,298
SET AREA COLOR 199
PLOT AREA: 60,280;62,282;78,282;80,280
PLOT AREA: 80,280;82,282;98,282;100,280
PLOT AREA: 100,280;102,282;118,282;120,280
PLOT AREA: 120,280;122,282;138,282;140,280
SET AREA COLOR 187
PLOT AREA: 180,300;182,298;182,282;180,280
PLOT AREA: 200,300;202,298;202,282;200,280
PLOT AREA: 220,300;222,298;222,282;220,280
PLOT AREA: 240,300;242,298;242,282;240,280
PLOT AREA: 200,280;202,278;202,262;200,260
SET AREA COLOR 28
PLOT AREA: 200,300;200,280;198,282;198,298
PLOT AREA: 220,300;220,280;218,282;218,298
PLOT AREA: 240,300;240,280;238,282;238,298
PLOT AREA: 260,300;260,280;258,282;258,298
PLOT AREA: 220,280;220,260;218,262;218,278
SET AREA COLOR 163
PLOT AREA: 180,300;200,300;198,298;182,298
PLOT AREA: 200,300;220,300;218,298;202,298
PLOT AREA: 220,300;240,300;238,298;222,298
PLOT AREA: 240,300;260,300;258,298;242,298
PLOT AREA: 200,280;220,280;218,278;202,278
SET AREA COLOR 45
PLOT AREA: 180,280;182,282;198,282;200,280
PLOT AREA: 200,280;202,282;218,282;220,280
PLOT AREA: 220,280;222,282;238,282;240,280
PLOT AREA: 200,260;202,262;218,262;220,260
PLOT AREA: 240,280;242,282;258,282;260,280
SET AREA COLOR 52
PLOT AREA: 260,280;262,282;278,282;280,280
PLOT AREA: 280,280;282,282;298,282;300,280
PLOT AREA: 260,260;262,262;278,262;280,260
PLOT AREA: 280,260;282,262;298,262;300,260
PLOT AREA: 280,240;282,242;298,242;300,240
SET AREA COLOR 121
PLOT AREA: 260,300;260,280;262,282;262,298
PLOT AREA: 280,300;280,280;282,282;282,298
PLOT AREA: 260,280;260,260;262,262;262,278
PLOT AREA: 280,280;280,260;282,262;282,278
PLOT AREA: 280,260;280,240;282,242;282,258
SET AREA COLOR 186
PLOT AREA: 280,300;280,280;278,282;278,298
PLOT AREA: 300,300;300,280;298,282;298,298
PLOT AREA: 280,280;280,260;278,262;278,278
PLOT AREA: 300,280;300,260;298,262;298,278
PLOT AREA: 300,260;300,240;298,242;298,258
SET AREA COLOR 138
PLOT AREA: 260,300;280,300;278,298;262,298
PLOT AREA: 280,300;300,300;298,298;282,298
PLOT AREA: 260,280;280,280;278,278;262,278
PLOT AREA: 280,280;300,280;298,278;282,278
PLOT AREA: 280,260;300,260;298,258;282,258
SET AREA COLOR 191
PLOT AREA: 140,300;140,280;142,282;142,298
PLOT AREA: 160,300;160,280;162,282;162,298
PLOT AREA: 140,280;140,260;142,262;142,278
SET AREA COLOR 17
PLOT AREA: 160,280;162,282;178,282;180,280
PLOT AREA: 140,280;142,282;158,282;160,280
PLOT AREA: 140,260;142,262;158,262;160,260
SET AREA COLOR 183
PLOT AREA: 180,300;180,280;178,282;178,298
PLOT AREA: 160,300;160,280;158,282;158,298
PLOT AREA: 160,280;160,260;158,262;158,278
SET AREA COLOR 167
PLOT AREA: 160,300;180,300;178,298;162,298
PLOT AREA: 140,300;160,300;158,298;142,298
PLOT AREA: 140,280;160,280;158,278;142,278
CHARACTER INPUT NOWAIT: a$
IF a$ = "j" THEN LET a(m) = a(m)-1
IF a$ = "k" THEN LET a(m) = a(m)
IF a$ = "l" THEN LET a(m) = a(m)+1
70 LET b(m)=b(m)+j
85 SET AREA COLOR 45
PLOT AREA: 140+a(1),0+b(1);140+a(1),20+b(1);160+a(1),20+b(1);160+a(1),0+b(1)
SET AREA COLOR 38
PLOT AREA: 140+a(2),0+b(2);140+a(2),20+b(2);160+a(2),20+b(2);160+a(2),0+b(2)
SET AREA COLOR 52
PLOT AREA: 140+a(3),0+b(3);140+a(3),20+b(3);160+a(3),20+b(3);160+a(3),0+b(3)
86 FOR k=1 TO 150000
87 NEXT k
140 IF b(m)>h THEN GOTO 330
270 GOTO 60
330 LET b(m)=h
400 IF a(m)+340=<242 THEN GOTO 420 ELSE GOTO 450
420 IF a(m)+340=>238 THEN GOTO 610
450 RANDOMIZE
LET j=INT(3*RND)+1
500 NEXT m
550 GOTO 20
610 SET AREA COLOR 0
PLOT AREA: 0,300;300,300;300,280;0,280
1000 END
16 Dec 2021
運動螺旋
20 LET n=2 ! INPUT n
30 SET WINDOW -1,1,-1,1
40 DRAW axes
45 LET r=0.1
LET r1=0.12
LET r2=0.14
LET r3=0.16
LET r4=0.18
LET r5=0.20
LET r6=0.22
LET r7=0.24
LET r8=0.26
LET r9=0.28
LET r10=0.30
LET r11=0.32
LET r12=0.34
LET r13=0.36
LET r14=0.38
LET r15=0.40
LET r16=0.42
LET r17=0.44
LET r18=0.46
LET r19=0.48
LET r20=0.50
LET r21=0.52
LET r22=0.54
LET r23=0.56
LET r24=0.58
LET r25=0.60
LET r26=0.62
LET r27=0.64
LET r28=0.66
LET r29=0.68
LET r30=0.70
LET r31=0.72
LET r32=0.74
LET r33=0.76
LET r34=0.78
LET r35=0.80
LET r36=0.82
LET r37=0.84
LET r38=0.86
LET r39=0.88
LET r40=0.90
LET r41=0.92
LET r42=0.94
LET r43=0.96
LET r44=0.98
LET r45=1.0
LET r46=1.02
LET r47=1.04
LET r48=1.06
LET r49=1.08
LET r50=1.10
50 LET t=t+4*PI/720
REM CLEAR
SET COLOR 15
PLOT AREA: -1,1 ; 1 ,1 ; 1,-1; -1,-1
DRAW disk WITH SCALE(2.00)*SHIFT(0,0)
SET COLOR 0
SET POINT STYLE 7
PLOT POINTS: r*COS(t*1),r*SIN(t*1)
PLOT POINTS: r1*COS(t*1.2),r1*SIN(t*1.2)
PLOT POINTS: r2*COS(t*1.4),r2*SIN(t*1.4)
PLOT POINTS: r3*COS(t*1.6),r3*SIN(t*1.6)
PLOT POINTS: r4*COS(t*1.8),r4*SIN(t*1.8)
PLOT POINTS: r5*COS(t*2),r5*SIN(t*2)
PLOT POINTS: r6*COS(t*2.2),r6*SIN(t*2.2)
PLOT POINTS: r7*COS(t*2.4),r7*SIN(t*2.4)
PLOT POINTS: r8*COS(t*2.6),r8*SIN(t*2.6)
PLOT POINTS: r9*COS(t*2.8),r9*SIN(t*2.8)
PLOT POINTS: r10*COS(t*3),r10*SIN(t*3)
PLOT POINTS: r11*COS(t*3.2),r11*SIN(t*3.2)
PLOT POINTS: r12*COS(t*3.4),r12*SIN(t*3.4)
PLOT POINTS: r13*COS(t*3.6),r13*SIN(t*3.6)
PLOT POINTS: r14*COS(t*3.8),r14*SIN(t*3.8)
PLOT POINTS: r15*COS(t*4.0),r15*SIN(t*4.0)
PLOT POINTS: r16*COS(t*4.2),r16*SIN(t*4.2)
PLOT POINTS: r17*COS(t*4.4),r17*SIN(t*4.4)
PLOT POINTS: r18*COS(t*4.6),r18*SIN(t*4.6)
PLOT POINTS: r19*COS(t*4.8),r19*SIN(t*4.8)
PLOT POINTS: r20*COS(t*5.0),r20*SIN(t*5.0)
PLOT POINTS: r21*COS(t*5.2),r21*SIN(t*5.2)
PLOT POINTS: r22*COS(t*5.4),r22*SIN(t*5.4)
PLOT POINTS: r23*COS(t*5.6),r23*SIN(t*5.6)
PLOT POINTS: r24*COS(t*5.8),r24*SIN(t*5.8)
PLOT POINTS: r25*COS(t*6.0),r25*SIN(t*6.0)
PLOT POINTS: r26*COS(t*6.2),r26*SIN(t*6.2)
PLOT POINTS: r27*COS(t*6.4),r27*SIN(t*6.4)
PLOT POINTS: r28*COS(t*6.6),r28*SIN(t*6.6)
PLOT POINTS: r29*COS(t*6.8),r29*SIN(t*6.8)
PLOT POINTS: r30*COS(t*7.0),r30*SIN(t*7.0)
PLOT POINTS: r31*COS(t*7.2),r31*SIN(t*7.2)
PLOT POINTS: r32*COS(t*7.4),r32*SIN(t*7.4)
PLOT POINTS: r33*COS(t*7.6),r33*SIN(t*7.6)
PLOT POINTS: r34*COS(t*7.8),r34*SIN(t*7.8)
PLOT POINTS: r35*COS(t*8.0),r35*SIN(t*8.0)
PLOT POINTS: r36*COS(t*8.2),r36*SIN(t*8.2)
PLOT POINTS: r37*COS(t*8.4),r37*SIN(t*8.4)
PLOT POINTS: r38*COS(t*8.6),r38*SIN(t*8.6)
PLOT POINTS: r39*COS(t*8.8),r39*SIN(t*8.8)
PLOT POINTS: r40*COS(t*9.0),r40*SIN(t*9.0)
PLOT POINTS: r41*COS(t*9.2),r41*SIN(t*9.2)
PLOT POINTS: r42*COS(t*9.4),r42*SIN(t*9.4)
PLOT POINTS: r43*COS(t*9.6),r43*SIN(t*9.6)
PLOT POINTS: r44*COS(t*9.8),r44*SIN(t*9.8)
PLOT POINTS: r45*COS(t*10),r45*SIN(t*10)
PLOT POINTS: r46*COS(t*10.2),r46*SIN(t*10.2)
PLOT POINTS: r47*COS(t*10.4),r47*SIN(t*10.4)
70
FOR v=1 TO 100000
NEXT v
REM 80 NEXT t
90 GOTO 50
190 END
16 Dec 2021
マグリットのゴルコンダ
DECLARE EXTERNAL PICTURE MAG
OPTION ANGLE DEGREES
SET WINDOW 0,300,300,0
DECLARE EXTERNAL PICTURE MAGg
30 FOR y=0 TO 300
SET AREA COLOR 184
PLOT AREA : 0,0;300,0;300,300;0,300
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(90,0+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(35,0+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(140,0+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(-20,0+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(190,0+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(245,0+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(90,100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(35,100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(140,100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(-20,100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(190,100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(245,100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(90,200+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(35,200+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(140,200+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(-20,200+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(190,200+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(245,200+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(115,50+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(7,50+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(220,50+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(165,150+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(60,150+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(220,50+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(165,250+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(60,250+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(220,250+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(112,250+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(10,250+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(165,-50+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(60,-50+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(220,-50+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(112,-50+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(10,-50+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(90,-100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(35,-100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(140,-100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(-20,-100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(190,-100+y)
DRAW MAGg WITH SCALE(0.2,0.2)*SHIFT(245,-100+y)
SET AREA COLOR 160
PLOT AREA: 0,200;300,200;300,300;0,300
SET AREA COLOR 240
PLOT AREA: 0,200;300,200;300,160;0,160
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(125,0+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(70,0+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(97,-50+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(97,50+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(185,0+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(240,0+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(10,0+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(125,100+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(185,100+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(240,100+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(10,100+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(213,-50+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(-20,-50+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(40,-50+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(155,-50+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(213,50+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(-20,50+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(70,100+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(40,150+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(155,150+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(70,200+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(125,200+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(185,200+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(240,200+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(10,200+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(125,-100+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(70,-100+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(185,-100+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(240,-100+y*2)
DRAW MAG2 WITH SCALE(0.3,0.3)*SHIFT(10,-100+y*2)
DRAW MAG WITH SCALE(1,1)*SHIFT(0,0+y*3)
DRAW MAG WITH SCALE(1,1)*SHIFT(110,0+y*3)
DRAW MAG WITH SCALE(1,1)*SHIFT(-110,0+y*3)
DRAW MAG WITH SCALE(1,1)*SHIFT(55,-140+y*3)
DRAW MAG WITH SCALE(1,1)*SHIFT(-55,-140+y*3)
DRAW MAG WITH SCALE(1,1)*SHIFT(165,-140+y*3)
DRAW MAG WITH SCALE(1,1)*SHIFT(-110,-280+y*3)
DRAW MAG WITH SCALE(1,1)*SHIFT(0,-280+y*3)
DRAW MAG WITH SCALE(1,1)*SHIFT(110,-280+y*3)
FOR ti=1 TO 2000000
NEXT ti
next y
END
EXTERNAL PICTURE MAG
SET AREA COLOR 1
10 DRAW disk WITH SCALE(10)*SHIFT(140,200)
20 SET LINE WIDTH 2.5
PLOT LINES: 126,200;154,200
30 SET LINE WIDTH 1
SET AREA COLOR 0
PLOT AREA: 134,210;145,210;145,220;134,220;134,210
SET AREA COLOR 1
PLOT AREA: 136,209;126,213;134,279;130,287;150,287;146,279;154,213;144,209;142,216;140,210;138,216;136,209
40 SET AREA COLOR 0
PLOT AREA: 131,200.5;149,200.5;149,205;140,210;131,205
50 SET LINE COLOR 1
SET LINE WIDTH 2
DRAW circle WITH SCALE(10)*SHIFT(140,200)
END PICTURE
EXTERNAL PICTURE MAG2
SET AREA COLOR 129
10 DRAW disk WITH SCALE(10)*SHIFT(140,200)
20 SET LINE WIDTH 2.5
PLOT LINES: 126,200;154,200
30 SET LINE WIDTH 1
SET AREA COLOR 0
PLOT AREA: 134,210;145,210;145,220;134,220;134,210
SET AREA COLOR 129
PLOT AREA: 136,209;126,213;134,279;130,287;150,287;146,279;154,213;144,209;142,216;140,210;138,216;136,209
40 SET AREA COLOR 0
PLOT AREA: 131,200.5;149,200.5;149,205;140,210;131,205
50 SET LINE COLOR 129
SET LINE WIDTH 2
DRAW circle WITH SCALE(10)*SHIFT(140,200)
END PICTURE
EXTERNAL PICTURE MAGg
SET AREA COLOR 8
10 DRAW disk WITH SCALE(10)*SHIFT(140,200)
20 SET LINE WIDTH 2.5
PLOT LINES: 126,200;154,200
30 SET LINE WIDTH 1
SET AREA COLOR 0
PLOT AREA: 134,210;145,210;145,220;134,220;134,210
SET AREA COLOR 8
PLOT AREA: 136,209;126,213;134,279;130,287;150,287;146,279;154,213;144,209;142,216;140,210;138,216;136,209
40 SET AREA COLOR 0
PLOT AREA: 131,200.5;149,200.5;149,205;140,210;131,205
50 SET LINE COLOR 8
SET LINE WIDTH 2
DRAW circle WITH SCALE(10)*SHIFT(140,200)
END PICTURE
16 Dec 2021
マイケル・ジャクソン？
OPTION ANGLE DEGREES
5 LET M=INT(2*RND)
10 CLEAR
SET WINDOW 0,100,0,100
SET AREA COLOR 9
PLOT AREA:0,0; 0,100;100,100;100,0
REM SET COLOR MIX(4) 0.5,0.5,1
LET M=INT(2*RND)
IF M=1 THEN GOTO 20
15 SET WINDOW 50,-50,0,100
20 SET AREA COLOR 14
PLOT AREA: 7,16;13,16;13,28;24,37;27,37;27,9;34,9;34,39;30,45;30,53;40,44;40,41;45,41;45,46;32,59;15,59;11,64;11,75;5,75;5,61;16,48;17,38;7,29;7,16
30 SET AREA COLOR 12
PLOT AREA:38,41;45,41;45,37;38,37;38,41
40 SET AREA COLOR 12
PLOT AREA:5,80;9,80;9,85;11,85;11,77;12,78;13,78;13,76;11,74;5,75;5,80
50 SET AREA COLOR 1
PLOT AREA:7,16;0,8;0,4;11,4;11,11;12,11;12,4;13,4;13,16;7,16
60 SET AREA COLOR 1
PLOT AREA: 28,9;34,9;34,9;34,0;28,0;28,9
70 SET AREA COLOR 1
PLOT AREA:16,59;12,64;12,74;14,76;18,80;28,80;35,73;35,66;33,61;31,59;16,59
80 SET AREA COLOR 12
PLOT AREA:21,59;19,62;19,65;21,67;25,67;27,65;27,62;25,59;21,59
90 SET AREA COLOR 1
PLOT AREA:19,65;27,65;27,63;25.5,62;24,63;24,64.5;22,64.5;22,63;20.5,62;19,63;19,65
DRAW star WITH ROTATE(90)*SCALE(.5)*SHIFT(10,10)
DRAW star WITH ROTATE(90)*SCALE(.5)*SHIFT(38,-10)
DRAW star WITH ROTATE(90)*SCALE(.5)*SHIFT(38,50)
FOR TI=1 TO 1000000
NEXT TI
GOTO 10
END
EXTERNAL PICTURE star
120 SET AREA COLOR 5
130 PLOT AREA: 61,44;61,45;57,45;57,48;56,48;56,45;51,45;51,44;56,44;56,41;57,41;57,44;61,44
140 SET AREA COLOR 5
150 PLOT AREA:57,1;57,2;43,2;43,5;42,5;42,2;30,2;30,1;42,1;42,-2;43,-2;43,1;57,1
160 SET AREA COLOR 5
170 PLOT AREA:81,-4;77,-4;77,-1;76,-1;76,-4;71,-4;71,-5;76,-5;76,-8;77,-8;77,-5;81,-5;81,-4
200 END PICTURE
16 Dec 2021
謎の生命体
gload "white.jpg"
SET WINDOW 0,500,0,500
10 LET a2=a2+a
LET b2=b2+b
LET c2=c2+c
LET d2=d2+d
LET e2=e2+e
LET f2=f2+f
LET g2=g2+g
LET h2=h2+h
LET i2=i2+I
LET j2=j2+j
LET k2=k2+k
LET l2=l2+l
100 WAIT DELAY 0.035
clear
SET LINE width 4
PLOT lines: 250+a2,250+b2;250+c2,250+d2
PLOT LINES: 250+a2,250+b2;250+e2,250+f2
PLOT LINES: 250+a2,250+b2;250+g2,250+h2
PLOT LINES: 250+c2,250+d2;250+e2,250+f2
PLOT LINES: 250+e2,250+f2;250+g2,250+h2
PLOT LINES: 250+g2,250+h2;250+c2,250+d2
RANDOMIZE
DRAW disk WITH SCALE(1)*SHIFT(250+a2,250+b2)
LET a=INT(4*RND)-int(4*RND)
LET b=INT(4*RND)-int(4*RND)
IF a2>250 THEN LET a2=249
IF a2<-250 THEN LET a2=-249
IF b2>250 THEN LET b2=249
IF b2<-250 THEN LET b2=-249
DRAW disk WITH SCALE(1)*SHIFT(250+c2,250+d2)
LET c=INT(4*RND)-int(4*RND)
LET d=INT(4*RND)-int(4*RND)
IF c2>250 THEN LET c2=249
IF c2<-250 THEN LET c2=-249
IF d2>250 THEN LET d2=249
IF d2<-250 THEN LET d2=-249
DRAW disk WITH SCALE(1)*SHIFT(250+e2,250+f2)
LET e=INT(4*RND)-int(4*RND)
LET f=INT(4*RND)-int(4*RND)
IF e2>250 THEN LET e2=249
IF e2<-250 THEN LET e2=-249
IF f2>250 THEN LET f2=249
IF f2<-250 THEN LET f2=2-249
DRAW disk WITH SCALE(1)*SHIFT(250+g2,250+h2)
LET g=INT(4*RND)-int(4*RND)
LET h=INT(4*RND)-int(4*RND)
IF g2>250 THEN LET g2=249
IF g2<-250 THEN LET g2=-249
IF h2>250 THEN LET h2=249
IF h2<-250 THEN LET h2=-249
500 GOTO 10
1000 end
16 Dec 2021
迷路
SET WINDOW 0,500,0,500
10 LET b=0
LET r=1
20 LET b=b+1*r
30 WAIT DELAY 0.02
CLEAR
SET COLOR MIX(1)0.65,0.8,0.1
SET AREA COLOR 1
PLOT AREA:0,0;500,0;500,500;0,500
SET COLOR MIX(13)0.9,0.8,0
SET AREA COLOR 13
DRAW disk WITH SCALE(220)*SHIFT(260,550)
SET AREA COLOR 5
PLOT AREA:200,0;200,50;300,50;300,0
PLOT AREA:50,50;50,200;300,200;300,50
PLOT AREA:300,150;300,200;450,200;450,150
PLOT AREA:400,100;400,250;450,250;450,100
PLOT AREA:150,250;150,280;450,280;450,250
PLOT AREA:90,230;90,330;180,330;180,230
PLOT AREA:180,330;180,350;420,350;420,330
PLOT AREA:150,330;150,400;180,400;180,330
PLOT AREA:50,380;50,400;180,400;180,380
PLOT AREA:350,350;350,400;370,400;370,350
PLOT AREA:250,400;250,420;370,420;370,400
PLOT AREA:250,400;250,500;270,500;270,400
PLOT AREA:120,450;120,500;400,500;400,450
PLOT AREA:30,350;30,450;90,450;90,350
SET AREA COLOR 1
PLOT AREA:100,100;100,150;220,150;220,100
SET COLOR MIX(4)0.9,0.2,0.1
SET AREA COLOR 4
DRAW disk WITH SCALE(12)*SHIFT(130,300)
SET LINE COLOR 0
DRAW circle WITH SCALE(1)*SHIFT(132,307)
DRAW circle WITH SCALE(1)*SHIFT(124,301)
SET LINE COLOR 4
DRAW circle WITH SCALE(0.2)*SHIFT(132,307)
DRAW circle WITH SCALE(0.2)*SHIFT(124,301)
SET AREA COLOR 5
PLOT AREA: 110,250;110,300;150,300;150,250
SET AREA COLOR 4
DRAW disk WITH SCALE(17)*SHIFT(115,280)
SET AREA COLOR 5
PLOT AREA:90,280;135,280;135,250;90,250
SET AREA COLOR 0
DRAW disk WITH SCALE(2)*SHIFT(115,290)
DRAW disk WITH SCALE(2)*SHIFT(125,290)
SET AREA COLOR 2
DRAW disk WITH SCALE(1)*SHIFT(115,290)
DRAW disk WITH SCALE(1)*SHIFT(125,290)
SET AREA COLOR 4
DRAW disk WITH SCALE(12)*SHIFT(110,258)
SET LINE COLOR 0
DRAW circle WITH SCALE(1)*SHIFT(107,265)
DRAW circle WITH SCALE(1)*SHIFT(117,262)
SET LINE COLOR 4
DRAW circle WITH SCALE(0.2)*SHIFT(107,265)
DRAW circle WITH SCALE(0.2)*SHIFT(117,262)
SET AREA COLOR 5
PLOT AREA: 90,260;125,260;125,240;90,240
SET LINE COLOR 0
SET LINE WIDTH 2
PLOT LINES:96,280;140,280
PLOT LINES:120,275;135,275
PLOT LINES:115,300;145,300
PLOT LINES:97,260;130,260
PLOT LINES:105,255;120,255
SET COLOR MIX(9)0.9,0.9,0.6
SET AREA COLOR 9
PLOT AREA:400,110;400,130;450,130;450,110
PLOT AREA:400,90;400,110;450,110;450,90
SET COLOR MIX(8)0.8,0.8,0.5
SET AREA COLOR 8
PLOT AREA:400,130;400,149;450,149;450,130
SET LINE COLOR 8
SET LINE WIDTH 4
PLOT LINES:410,129;449,129
PLOT LINES:415,127;449,127
PLOT LINES:425,125;449,125
PLOT LINES:435,123;449,123
SET LINE COLOR 0
SET LINE WIDTH 3
PLOT LINES:405,110;407,110
PLOT LINES:415,100;417,100
PLOT LINES:425,110;427,110
PLOT LINES:435,100;437,100
SET LINE COLOR 5
SET LINE WIDTH 5
PLOT LINES:405,149;448,149
PLOT LINES:410,146;448,146
PLOT LINES:415,143;448,143
PLOT LINES:425,141;448,141
PLOT LINES:435,139;448,139
SET COLOR MIX(7)0.4,0.8,1
SET LINE COLOR 7
SET LINE WIDTH 7
PLOT LINES:178,398;88,398;88,448;32,448;32,352;88,352;88,382;152,382
PLOT LINES:152,382;152,328;92,328;92,232;178,232;178,252;402,252
PLOT LINES:402,252;402,198;52,198;52,52;202,52;202,0
PLOT LINES:222,152;98,152;98,98;222,98;222,152
PLOT LINES:297,0;297,152;400,152
PLOT LINES:448,137;448,278;178,278;178,332;418,332;418,348;368,348
PLOT LINES:368,348;368,418;268,418;268,452;398,452;398,500
PLOT LINES:122,500;122,452;252,452;252,402;352,402;352,348;178,348;178,398
SET COLOR MIX(3)0.4,0.6,0.3
SET LINE COLOR 3
SET LINE WIDTH 6
PLOT LINES:180,400;90,400;90,450;30,450;30,350;90,350;90,380;150,380
PLOT LINES:150,380;150,330;90,330;90,230;180,230;180,250;400,250
PLOT LINES:400,250;400,200;50,200;50,50;200,50;200,0
PLOT LINES:220,150;100,150;100,100;222,100;222,150
PLOT LINES:298.5,0;298.5,150;400,150
PLOT LINES:450,137;450,280;180,280;180,330;420,330;420,350;370,350
PLOT LINES:370,350;370,420;270,420;270,450;400,450;400,500
PLOT LINES:120,500;120,450;250,450;250,400;350,400;350,350;180,350;180,400
SET COLOR MIX(12) 0.6,0.3,0
SET AREA COLOR 12
PLOT AREA:220,105;220,145;300,145;300,105
SET COLOR MIX(2) 0.4,0.2,0
SET LINE COLOR 2
SET LINE WIDTH 3
PLOT LINES:230,143;230,107
PLOT LINES:240,143;240,107
PLOT LINES:250,143;250,107
PLOT LINES:260,143;260,107
PLOT LINES:270,143;270,107
PLOT LINES:280,143;280,107
PLOT LINES:290,143;290,107
PLOT LINES:221,105;299,105
SET LINE WIDTH 4
PLOT LINES:230,103;240,103
PLOT LINES:280,103;290,103
SET LINE COLOR 6
PLOT LINES:290,143;290,144
PLOT LINES:280,143;280,144
PLOT LINES:270,143;270,144
PLOT LINES:260,143;260,144
PLOT LINES:250,143;250,144
PLOT LINES:240,143;240,144
PLOT LINES:230,143;230,144
PLOT LINES:290,107;290,108
PLOT LINES:280,107;280,108
PLOT LINES:270,107;270,108
PLOT LINES:260,107;260,108
PLOT LINES:250,107;250,108
PLOT LINES:240,107;240,108
PLOT LINES:230,107;230,108
SET LINE COLOR 1
PLOT LINES:410,90;413,94
PLOT LINES:410,90;408,92
PLOT LINES:430,90;433,94
PLOT LINES:430,90;428,92
PLOT LINES:450,120;448,122
PLOT LINES:450,110;448,112
PLOT LINES:458,100;448,102
PLOT LINES:400,120;402,122
PLOT LINES:400,110;402,112
PLOT LINES:400,100;402,102
SET COLOR MIX(10)0.9,0.4,0
SET LINE COLOR 10
PLOT LINES:410,480;420,480
PLOT LINES:416,474;416,484
PLOT LINES:60,480;70,480
PLOT LINES:66,474;66,484
PLOT LINES:350,440;360,440
PLOT LINES:356,434;356,444
SET LINE COLOR 6
SET LINE WIDTH 8
PLOT LINES:230,420;230,440
PLOT LINES:220,430;240,430
PLOT LINES:420,450;420,430
PLOT LINES:410,440;430,440
PLOT LINES:100,480;100,500
PLOT LINES:90,490;110,490
SET LINE WIDTH 5
PLOT LINES:415,480;416,480
PLOT LINES:65,480;66,480
PLOT LINES:355,440;356,440
SET LINE COLOR 0
SET LINE WIDTH 8
PLOT LINES:150,430;151,430
PLOT LINES:310,440;311,440
PLOT LINES:450,450;451,450
PLOT LINES:80,470;81,470
SET LINE COLOR 10
SET LINE WIDTH 8
PLOT LINES:230,430;230,431
PLOT LINES:420,440;420,441
PLOT LINES:100,490;100,491
SET LINE COLOR 0
SET LINE WIDTH 2
PLOT LINES:435,136;445,136
PLOT LINES:425,138;435,138
PLOT LINES:415,140;425,140
PLOT LINES:412,142;415,142
PLOT LINES:432,152;440,152
PLOT LINES:412,145;420,145
PLOT LINES:428,145;437,145
PLOT LINES:80,180;130,180
PLOT LINES:140,180;170,180
PLOT LINES:110,165;180,165
PLOT LINES:290,185;340,185
PLOT LINES:330,170;390,170
PLOT LINES:240,260;380,260
PLOT LINES:200,270;270,270
SET AREA COLOR 11
SET COLOR MIX(11)0.3,0.3,0.7
DRAW disk WITH SCALE(6)*SHIFT(60,400)
PLOT AREA:54,400;66,400;66,380;54,380
DRAW disk WITH SCALE(3)*SHIFT(50,430)
PLOT AREA:47,430;53,430;53,415;47,415
DRAW disk WITH SCALE(3)*SHIFT(75,420)
PLOT AREA:72,420;78,420;78,405;72,405
DRAW disk WITH SCALE(3)*SHIFT(43,385)
PLOT AREA:40,385;46,385;46,365;40,365
SET AREA COLOR 0
DRAW disk WITH SCALE(2)*SHIFT(57,385)
DRAW disk WITH SCALE(2)*SHIFT(63,385)
SET AREA COLOR 2
DRAW disk WITH SCALE(1)*SHIFT(57,385)
DRAW disk WITH SCALE(1)*SHIFT(63,385)
SET AREA COLOR 13
DRAW disk WITH SCALE(10)*SHIFT(150,480)
PLOT AREA:140,480;160,480;160,465;140,465
DRAW disk WITH SCALE(10)*SHIFT(180,480)
PLOT AREA:170,480;190,480;190,465;170,465
DRAW disk WITH SCALE(10)*SHIFT(210,480)
PLOT AREA:200,480;220,480;220,465;200,465
DRAW disk WITH SCALE(10)*SHIFT(300,480)
PLOT AREA:290,480;310,480;310,465;290,465
DRAW disk WITH SCALE(10)*SHIFT(330,480)
PLOT AREA:320,480;340,480;340,465;320,465
DRAW disk WITH SCALE(10)*SHIFT(360,480)
PLOT AREA:350,480;370,480;370,465;350,465
SET COLOR 0
DRAW disk WITH SCALE(2)*SHIFT(145,480)
DRAW disk WITH SCALE(2)*SHIFT(155,480)
DRAW disk WITH SCALE(2)*SHIFT(173,480)
DRAW disk WITH SCALE(2)*SHIFT(180,480)
DRAW disk WITH SCALE(2)*SHIFT(205,472)
DRAW disk WITH SCALE(2)*SHIFT(215,472)
DRAW disk WITH SCALE(2)*SHIFT(300,480)
DRAW disk WITH SCALE(2)*SHIFT(307,480)
DRAW disk WITH SCALE(2)*SHIFT(325,475)
DRAW disk WITH SCALE(2)*SHIFT(335,475)
DRAW disk WITH SCALE(2)*SHIFT(355,484)
DRAW disk WITH SCALE(2)*SHIFT(365,484)
SET COLOR 2
DRAW disk WITH SCALE(1)*SHIFT(145,480)
DRAW disk WITH SCALE(1)*SHIFT(155,480)
DRAW disk WITH SCALE(1)*SHIFT(173,480)
DRAW disk WITH SCALE(1)*SHIFT(180,480)
DRAW disk WITH SCALE(1)*SHIFT(205,472)
DRAW disk WITH SCALE(1)*SHIFT(215,472)
DRAW disk WITH SCALE(1)*SHIFT(300,480)
DRAW disk WITH SCALE(1)*SHIFT(307,480)
DRAW disk WITH SCALE(1)*SHIFT(325,475)
DRAW disk WITH SCALE(1)*SHIFT(335,475)
DRAW disk WITH SCALE(1)*SHIFT(355,484)
DRAW disk WITH SCALE(1)*SHIFT(365,484)
SET COLOR 9
DRAW disk WITH SCALE(10)*SHIFT(345,90)
PLOT AREA:335,90;355,90;355,80;335,80
DRAW disk WITH SCALE(10)*SHIFT(425,60)
PLOT AREA:415,60;435,60;435,45;415,45
DRAW disk WITH SCALE(10)*SHIFT(125,125)
PLOT AREA:115,125;135,125;135,115;115,115
DRAW disk WITH SCALE(10)*SHIFT(155,125)
PLOT AREA:145,125;165,125;165,115;145,115
DRAW disk WITH SCALE(10)*SHIFT(185,125)
PLOT AREA:175,125;195,125;195,115;175,115
SET COLOR 0
DRAW disk WITH SCALE(2)*SHIFT(120,125)
DRAW disk WITH SCALE(2)*SHIFT(130,125)
DRAW disk WITH SCALE(2)*SHIFT(150,130)
DRAW disk WITH SCALE(2)*SHIFT(157,130)
DRAW disk WITH SCALE(2)*SHIFT(185,120)
DRAW disk WITH SCALE(2)*SHIFT(192,120)
16 Dec 2021
アンパンマン・ゲーム
SET WINDOW 0,500,0,500
10 FOR i= 200 TO -250 STEP -1
SET AREA COLOR 52
PLOT AREA:0,0;500,0;500,500;0,500;0, 0
SET TEXT COLOR 0
SET TEXT FONT "バナナスリップ",40
PLOT TEXT ,AT 35,420 : "アンパンマンを完成させよう"
SET AREA COLOR 4
PLOT AREA: 100,0;100,50;150,80;350,80;400,50;400,0
SET AREA COLOR 22
PLOT AREA: 150,80;250,80;200,30
SET AREA COLOR 22
PLOT AREA: 350,80;250,80;300,30
SET AREA COLOR 27
50 DRAW disk WITH SCALE(180)*SHIFT(250,230)
SET AREA COLOR 1
DRAW disk WITH SCALE(10)*SHIFT(200,270)
SET AREA COLOR 1
DRAW disk WITH SCALE(10)*SHIFT(300,270)
SET LINE WIDTH 3
PLOT LINES: 180 ,300 ;195,300;220,320
SET LINE WIDTH 3
PLOT LINES: 315 ,300 ;300,300;275,320
SET LINE WIDTH 3
PLOT LINES: 180 ,125 ;210,140;245,140;280,140;310,125
SET AREA COLOR 4
DRAW disk WITH SCALE(50)*SHIFT(250,210+i)
SET AREA COLOR 43
DRAW disk WITH SCALE(50)*SHIFT(150,210+i)
SET AREA COLOR 43
DRAW disk WITH SCALE(50)*SHIFT(350,210+i)
60 CHARACTER INPUT NOWAIT: a$
70 IF a$ = "m" THEN GOTO 110
100 NEXT I
110 PRINT I
IF i=-4 THEN GOTO 200
IF i=-3 THEN GOTO 200
IF i=-2 THEN GOTO 200
IF i=-1 THEN GOTO 200
IF i=0 THEN GOTO 200
IF i=1 THEN GOTO 200
IF i=2 THEN GOTO 200
IF i=3 THEN GOTO 200
IF i=4 THEN GOTO 200
IF i=5 THEN GOTO 200
IF i=6 THEN GOTO 200
IF i=7 THEN GOTO 200
IF i=8 THEN GOTO 200
IF i=9 THEN GOTO 200
IF i=10 THEN GOTO 200
IF i=11 THEN GOTO 200
IF i=12 THEN GOTO 200
IF i=13 THEN GOTO 200
IF i=14 THEN GOTO 200
IF i=15 THEN GOTO 200
IF i=16 THEN GOTO 200
GOTO 250
200 SET AREA COLOR 31
PLOT AREA:0,0;500,0;500,500;0,500;0, 0
SET TEXT COLOR 0
SET TEXT FONT "バナナスリップ",40
PLOT TEXT ,AT 40,420 : "次世代ジャムおじさんに認定"
SET AREA COLOR 4
PLOT AREA: 100,0;100,50;150,80;350,80;400,50;400,0
SET AREA COLOR 22
PLOT AREA: 150,80;250,80;200,30
SET AREA COLOR 22
PLOT AREA: 350,80;250,80;300,30
SET AREA COLOR 27
DRAW disk WITH SCALE(180)*SHIFT(250,230)
SET LINE WIDTH 3
PLOT LINES: 180 ,310 ;220,300
SET LINE WIDTH 3
PLOT LINES: 320 ,310 ;280,300
SET AREA COLOR 1
DRAW disk WITH SCALE(10)*SHIFT(200,270)
SET AREA COLOR 1
DRAW disk WITH SCALE(10)*SHIFT(300,270)
SET AREA COLOR 4
DRAW disk WITH SCALE(70)*SHIFT(250,180)
SET AREA COLOR 27
PLOT AREA:170,150;325,150;325,250;170,250;170,150
SET AREA COLOR 4
DRAW disk WITH SCALE(50)*SHIFT(250,210)
SET AREA COLOR 43
DRAW disk WITH SCALE(50)*SHIFT(150,210)
SET AREA COLOR 43
DRAW disk WITH SCALE(50)*SHIFT(350,210)
GOTO 300
250 SET AREA COLOR 8
PLOT AREA:0,0;500,0;500,500;0,500;0, 0
SET TEXT COLOR 0
SET TEXT FONT "バナナスリップ",40
PLOT TEXT ,AT 50,420 : "残念 もう一回やってみよう"
SET AREA COLOR 4
PLOT AREA: 100,0;100,50;150,80;350,80;400,50;400,0
SET AREA COLOR 22
PLOT AREA: 150,80;250,80;200,30
SET AREA COLOR 22
PLOT AREA: 350,80;250,80;300,30
SET AREA COLOR 27
DRAW disk WITH SCALE(180)*SHIFT(250,230)
SET AREA COLOR 1
DRAW disk WITH SCALE(10)*SHIFT(200,270)
SET AREA COLOR 1
DRAW disk WITH SCALE(10)*SHIFT(300,270)
SET LINE WIDTH 3
PLOT LINES: 180 ,300 ;195,300;220,320
SET LINE WIDTH 3
PLOT LINES: 315 ,300 ;300,300;275,320
SET LINE WIDTH 3
PLOT LINES: 180 ,125 ;210,140;245,140;280,140;310,125
SET AREA COLOR 4
DRAW disk WITH SCALE(50)*SHIFT(250,210+i)
SET AREA COLOR 43
DRAW disk WITH SCALE(50)*SHIFT(150,210+i)
SET AREA COLOR 43
DRAW disk WITH SCALE(50)*SHIFT(350,210+i)
300 END
16 Dec 2021
ボール・キャッチ
OPTION BASE 1
SET WINDOW 0,300,300,0
10 LET y2=0
LET v=INT(300*RND)
20 CLEAR
25 CHARACTER INPUT NOWAIT: a$
40 IF a$ = "j" THEN LET x = x-10
50 IF a$ = "k" THEN LET x = x
60 IF a$ = "l" THEN LET x = x+10
IF x>88 THEN LET x=88
IF x<-108 THEN LET x=-108
LET y2=y2+20
SET AREA COLOR 38
SET TEXT COLOR 25
SET TEXT HEIGHT 15
PLOT TEXT ,AT 10,20: "point"
SET TEXT HEIGHT 10
PLOT TEXT ,AT 240,20: "time"
SET TEXT COLOR 1
SET TEXT HEIGHT 20
PLOT TEXT ,AT 20,60: STR$(sum)
SET TEXT COLOR 1
SET TEXT HEIGHT 20
PLOT TEXT ,AT 250,60: STR$(sum1)
SET COLOR 7
205 DRAW disk WITH SCALE(20)*SHIFT(v+x2,0+y2)
SET AREA COLOR 8
207 PLOT AREA: 100+x ,180+y ; 100+x,270+y ; 110+x, 300+y ;190+x,300+y ;200+x,270+y; 200+x,180+y
SET AREA COLOR 1
210 PLOT AREA: 110+x ,190+y ; 110+x,270+y;120+x, 290+y ;180+x, 290+y ; 190+x, 270+y ; 190+x , 190+y
SET COLOR 254
220 PLOT AREA:135+x,210+y;135+x,200+y;165+x,200+y;165+x,210+y;135+x,210+y
280 IF v+x2>=140+x AND v+x2=<180+x THEN GOTO 285 ELSE GOTO 290
285 IF 0+y2>=220 AND 0+y2=<230 THEN GOTO 288 ELSE GOTO 290
288 LET sum = sum+1
IF sum = 10 THEN GOTO 310
290 FOR ti=0 TO 1000000
NEXT ti
295 IF 0+y2>=220 AND 0+y2=<230 THEN GOTO 296 ELSE GOTO 297
296 LET sum1 = sum1 + 0
297 LET sum1 = sum1 + 1
300 RANDOMIZE
LET x2=INT(5*RND)
IF y2>300 THEN GOTO 10
GOTO 20
310 SET TEXT COLOR 56
SET TEXT HEIGHT 30
PLOT TEXT ,AT 80, 110 : "CLEAR!"
SET TEXT COLOR 8
SET TEXT HEIGHT 20
PLOT TEXT ,AT 40, 150 : "YOUR TIME IS"
SET TEXT COLOR 4
PLOT TEXT ,AT 230,150: STR$(sum1)
SET TEXT COLOR 8
PLOT TEXT ,AT 270, 150 : "!"
GOTO 400
400 END
16 Dec 2021
単語入力ゲーム
10 DECLARE EXTERNAL PICTURE inu
SET WINDOW 0,500,500,0
SET POINT STYLE 4
13 restore
LET sc=sc+0
LET lv=lv+1
LET sc$=STR$(sc)
let lv$=STR$(lv)
IF sc=600 THEN GOTO 800
15 FOR i=1 TO 1.8 STEP 0.18
CLEAR
20 SET AREA COLOR 72
30 SET AREA COLOR 17 !sora
PLOT AREA: 0,0;0,500;500,500;500,0
SET AREA COLOR 207 !sikaku
PLOT AREA: 274,5;314,5;314,39;274,39
PLOT AREA: 320,5;360,5;360,39;320,39
PLOT AREA: 366,5;406,5;406,39;366,39
PLOT AREA: 452,5;412,5;412,39;452,39
PLOT AREA: 458,5;498,5;498,39;458,39
SET AREA COLOR 136 ! kabe
PLOT AREA: 30,240;0,240;0,500;500,500;500,150;100,100
SET AREA COLOR 15 ! kabe hinata
PLOT AREA: 0,240;30,240;100,100;500,160;500,150;100,100;30,210;0,210
SET AREA COLOR 129 ! sen
PLOT AREA: 0,210;30,210;100,100;500,150;500,152;100,100;30,211;0,211
PLOT AREA: 0,240;30,240;100,100;500,160;500,162;100,100;30,241;0,241
PLOT AREA: 0,320;30,320;100,100;500,230;500,232;100,100;30,321;0,321
PLOT AREA: 0,400;30,400;100,100;500,295;500,297;100,100;30,401;0,401
PLOT AREA: 0,480;30,480;100,100;500,360;500,362;100,100;30,481;0,481
IF sc>90 THEN GOTO 100 ELSE GOTO 500
100 DRAW eda
IF sc>100 THEN GOTO 105 ELSE GOTO 500
105 DRAW eda WITH SCALE(0.8)*ROTATE(1)*SHIFT(10,0)
IF sc>190 THEN GOTO 110 ELSE GOTO 500
110 DRAW hone
IF sc>200 THEN GOTO 120 ELSE GOTO 500
120 DRAW hone WITH SCALE(1.3)*SHIFT(30,380)
IF sc>290 THEN GOTO 130 ELSE GOTO 500
130 DRAW ball
IF sc>300 THEN GOTO 140 ELSE GOTO 500
140 DRAW ball WITH ROTATE(1)*SCALE(0.2)*SHIFT(80,80)
IF sc>390 THEN GOTO 150 ELSE GOTO 500
150 DRAW dogfood
IF sc>400 THEN GOTO 160 ELSE GOTO 500
160 DRAW dogfood WITH SCALE(1.7)*SHIFT(-540,370)
IF sc>490 THEN GOTO 170 ELSE GOTO 500
170 DRAW kubiwa
IF sc>500 THEN GOTO 180 ELSE GOTO 500
180 SET AREA COLOR 117 ! kubiwa big
DRAW disk WITH SCALE(280)*SHIFT(250,740)
SET AREA COLOR 0 ! siro
DRAW disk WITH SCALE(42)*SHIFT(250,490)
DRAW disk WITH SCALE(42)*SHIFT(350,520)
DRAW disk WITH SCALE(42)*SHIFT(150,520)
IF sc> 590 THEN GOTO 800 ELSE GOTO 500
500 DRAW inu WITH ROTATE(0)*SCALE(i)*SHIFT (2/i-50,2/i-50)
DATA "a","e","v","u","q","n","z","p","l","_","9","pen","dog","you","say","hat","red","but","man","soy","run","cat","heir","seven","look","game","aqua","that","hell","away","bake","movie","crazy","earth","crash","japan","shall","force","music","bridge","joker","clever","energy","museum","hunter","soccer","scream","holiday","destiny","computer","acrobat","freedom","service","mystery","justice","phoenix","revenge","blossom","liberty","daughter","breakfast","yesterday","forever","illusion","infinity","accident","actively","champion","creative","basketball","animation","elephant","difficult","recommend","thankyouplaymygame","seeyounexttime"
READ IF MISSING THEN 13: wd$
SET TEXT HEIGHT 18
PLOT TEXT ,AT 100, 75 : wd$
SET TEXT HEIGHT 13
PLOT TEXT ,AT 130, 25 : "SCORE "
PLOT TEXT ,AT 190, 25 : sc$
SET TEXT HEIGHT 13
PLOT TEXT ,AT 25, 25 : "Level "
PLOT TEXT ,AT 85, 25 : lv2$
LINE INPUT A$
IF A$ = "end" THEN GOTO 1000
IF A$=wd$ THEN GOTO 550 ELSE GOTO 600
550 PLOT TEXT ,AT 100, 100 : "good"
GOTO 580
580 LET sc=sc+10
LET lv=lv+1
LET lv2=INT(1+lv/5)
LET sc$=STR$(sc)
LET lv2$=STR$(lv2)
GOTO 15
600 FOR ti=0 TO 1000000
NEXT ti
IF i>1.7 THEN GOTO 900
NEXT I
800 PLOT TEXT ,AT 95,35 : "GAME CLEAR!"
SET AREA COLOR 146 ! mimi left
PLOT AREA: 202,175;201,240;270,240
SET AREA COLOR 146 ! mimi right
PLOT AREA: 298,175;299,240;230,240
SET AREA COLOR 137 ! mimi left oku
PLOT AREA: 207,190;206,245;260,245
SET AREA COLOR 137 ! mimi right oku
PLOT AREA: 293,190;294,245;240,245
SET AREA COLOR 137 ! ashi left ushiro
PLOT AREA: 220,245;210,310;233,310;240,290
SET AREA COLOR 137 ! ashi right ushiro
PLOT AREA: 280,245;290,310;267,310;260,290
SET AREA COLOR 146 ! dou
PLOT AREA: 215,300;285,300;215,250;285,250
SET AREA COLOR 146 ! ashi left
PLOT AREA: 210,240;200,320;223,320;230,300
SET AREA COLOR 146 ! ashi right
PLOT AREA: 290,240;300,320;277,320;270,300
SET AREA COLOR 117 ! kubiwa
DRAW disk WITH SCALE(43)*SHIFT(250,270)
SET AREA COLOR 0 ! siro
DRAW disk WITH SCALE(8)*SHIFT(250,305)
DRAW disk WITH SCALE(8)*SHIFT(270,300)
DRAW disk WITH SCALE(8)*SHIFT(230,300)
DRAW disk WITH SCALE(8)*SHIFT(283,285)
DRAW disk WITH SCALE(8)*SHIFT(215,285)
SET AREA COLOR 136 ! konnkuri-to kakushi
PLOT AREA:0,500;500,500;360,440;190,440
SET AREA COLOR 172 ! kao
DRAW disk WITH SCALE(50)*SHIFT(250,250)
SET AREA COLOR 103 ! kuti
PLOT AREA: 233,240;233,280;267,280;267,240
SET AREA COLOR 199 ! kiba left
PLOT AREA: 233,240;240,260;247,240
SET AREA COLOR 199 ! kiba right
PLOT AREA: 267,240;260,260;253,240
SET AREA COLOR 248 ! me left
PLOT AREA: 220,228;220,230;240,238;240,236
SET AREA COLOR 248 ! me right
PLOT AREA: 280,228;280,230;260,238;260,236
900 PLOT TEXT ,AT 100,95 : "GAME OVER"
1000 END
1100 EXTERNAL PICTURE inu
SET AREA COLOR 146 ! mimi left
PLOT AREA: 202,175;201,240;270,240
SET AREA COLOR 146 ! mimi right
PLOT AREA: 298,175;299,240;230,240
SET AREA COLOR 137 ! mimi left oku
PLOT AREA: 207,190;206,245;260,245
SET AREA COLOR 137 ! mimi right oku
PLOT AREA: 293,190;294,245;240,245
SET AREA COLOR 137 ! ashi left ushiro
PLOT AREA: 220,245;210,310;233,310;240,290
SET AREA COLOR 137 ! ashi right ushiro
PLOT AREA: 280,245;290,310;267,310;260,290
SET AREA COLOR 146 ! dou
PLOT AREA: 215,300;285,300;215,250;285,250
SET AREA COLOR 146 ! ashi left
PLOT AREA: 210,240;200,320;223,320;230,300
SET AREA COLOR 146 ! ashi right
PLOT AREA: 290,240;300,320;277,320;270,300
SET AREA COLOR 172 ! kao
DRAW disk WITH SCALE(50)*SHIFT(250,250)
SET AREA COLOR 103 ! kuti
PLOT AREA: 233,240;233,280;267,280;267,240
SET AREA COLOR 199 ! kiba left
PLOT AREA: 233,240;240,260;247,240
SET AREA COLOR 199 ! kiba right
PLOT AREA: 267,240;260,260;253,240
SET AREA COLOR 248 ! me left
PLOT AREA: 220,228;220,230;240,238;240,236
SET AREA COLOR 248 ! me right
PLOT AREA: 280,228;280,230;260,238;260,236
101 END PICTURE
1110 EXTERNAL PICTURE eda
SET AREA COLOR 137 ! eda
PLOT AREA: 274,33;278,39;298,21;310,17;312,15;302,17;314,7;314,5;292,21;294,13;294,11;286,25
SET AREA COLOR 44 ! eda ha
PLOT AREA: 282,11;282,17;284,21;290,21;288,15;286,13
1111 END PICTURE
1120 EXTERNAL PICTURE hone
SET AREA COLOR 0 ! hone
PLOT AREA: 326,17;350,33;354,27;330,11
DRAW disk WITH SCALE(5)*SHIFT(326,17)
DRAW disk WITH SCALE(5)*SHIFT(350,33)
DRAW disk WITH SCALE(5)*SHIFT(354,27)
DRAW disk WITH SCALE(5)*SHIFT(330,11)
1121 END PICTURE
1130 EXTERNAL PICTURE ball
SET AREA COLOR 199 ! ball
DRAW disk WITH SCALE(17)*SHIFT(386,22)
SET AREA COLOR 65 ! ball sen
PLOT AREA: 378,7;376,9;380,13;380,31;376,35;378,37;382,33;382,11;378,7
PLOT AREA: 396,9;392,13;392,31;396,35;394,37;390,33;390,11;394,7
PLOT AREA: 376,15;376,17;384,17;384,15
PLOT AREA: 376,21;376,23;384,23;384,21
PLOT AREA: 376,27;376,29;384,29;384,27
PLOT AREA: 388,15;388,17;396,17;396,15
PLOT AREA: 388,21;388,23;396,23;396,21
PLOT AREA: 388,27;388,29;396,29;396,27
1131 END PICTURE
1140 EXTERNAL PICTURE dogfood
SET AREA COLOR 130 ! dogfood niku
DRAW disk WITH SCALE(10)*SHIFT(433,27)
DRAW disk WITH SCALE(4)*SHIFT(420,27)
DRAW disk WITH SCALE(4)*SHIFT(424,23)
DRAW disk WITH SCALE(4)*SHIFT(428,17)
DRAW disk WITH SCALE(4)*SHIFT(436,15)
DRAW disk WITH SCALE(4)*SHIFT(440,21)
DRAW disk WITH SCALE(4)*SHIFT(444,27)
SET AREA COLOR 128 ! dogfood hako
PLOT AREA: 412,39;452,39;448,27;416,27
1141 END PICTURE
1150 EXTERNAL PICTURE kubiwa
SET AREA COLOR 117 ! kubiwa
DRAW disk WITH SCALE(16)*SHIFT(476,23)
DRAW disk WITH SCALE(16)*SHIFT(480,23)
SET AREA COLOR 207 ! shironuki
DRAW disk WITH SCALE(12)*SHIFT(478,18)
SET AREA COLOR 0 ! siro
DRAW disk WITH SCALE(4)*SHIFT(462,25)
DRAW disk WITH SCALE(4)*SHIFT(468,33)
DRAW disk WITH SCALE(4)*SHIFT(478,35)
DRAW disk WITH SCALE(4)*SHIFT(488,33)
DRAW disk WITH SCALE(4)*SHIFT(494,25)
1151 END PICTURE
